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Queridos lectores: 


AMSTRADMANIA es una publicación dedicada fundamentalmente a los programas 
de juegos para microordenadores AMSTRAD. 


Al decir fundamentalmente, queremos indicar que, al igual que otras, su base es 
ofrecer al mercado una revista con su cassette de variados e interesantes juegos, 
pero también que nuestra intención no es dedicar nuestra publicación a estos 
programas en exclusiva. 


Sabemos que a niños y jóvenes de hoy es preciso introducirlos de lleno dentro 
de ese inmenso mundo de posibilidades que es la Informática. También sabemos 
que una de las formas más fáciles es hacerlo a través de los juegos. Creemos, 
por el contrario, que quedarse sólo en la introducción es una pobre meta. Por 
eso nuestra revista pretende que esos juegos sean el puente a través del cual 
los principiantes se interesen más y más por sacarle partido a ese, 
verdaderamente maravilloso, aparato que adquirieron o desean tener. 


En la certeza que la inmensa mayoría de los microordenadores que poseen los 
españoles son infrautilizados al desempeñar únicamente el oficio de sofisticados 
juguetes, pretendemos lograr que en muchos casos, y sin dejar de ser 
entretenimiento y juego, lleguen a constituir una herramienta de trabajo para el 
estudiante, el ama de casa, el profesor, el profesional, el pequeño o mediano 
empresario o el simple aficionado. 


Queda clara así nuestra intención de introducirnos, a través de los juegos, en la 
intimidad de los hogares españoles, incitando la curiosidad de niños, jóvenes y 
adultos, ofreciendo una publicación llena de contenido para todos. 


AMSTRADMANIA es una cuidada revista de 40 páginas, bicolor, que constará de 
variadas y diferentes secciones entre las que, junto a las dedicadas 
especificamente a juegos, destacan las que incluyen: cursos de software, 
programas dedicados a temas tan variados como «la lotería primitiva», «las 
quinielas», «las encuestas», «la administración empresarial», «la declaración de la 
renta», «concursos de programación a través de la resolución de incógnitas 
planteadas...», etc., sin olvidarnos de las habituales páginas dedicadas a noticias 
informáticas que pondrán al lector en conocimiento de las últimas novedades en 
este campo. 


Esperamos que nuestra revista consiga el logro de sus objetivos y la buena 
acogida del público aficionado, estando abiertos a cualquier sugerencia que sirva 
para aumentar la calidad de nuestra publicación. 
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SISTEMA INFORMATICO 
AMSTRAD CPC 6128 


A la hora de elegir un ordenador personal son muchos 
los factores a tener en cuenta, su capacidad, su sencillez 
de manejo e instalación, su equipo básico y periféricos, 
su biblioteca de programas... y, desde luego, su precio. 
El CPC 6128 continúa la línea que ya ha hecho famosa a 
la familia AMSTRAD en todo el mundo. Como sus herma- 
nos menores, por un precio incomparable, agrupa TODO 
el equipo en una compacta y completa configuración bá- 
sica. Un sólo cable para enchufar a la red y el sistema 
6128 está listo para funcionar. 

Pero la sencillez y el precio no son lo único a destacar en 
el 6128. Su unidad de disco y sus 128K de RAM hacen 
de él un ordenador con unas posibilidades impresionan- 
tes. 


JUEGUE Y APRENDA CON EL 6128 


Para jugar, el 6128 es un ordenador muy serio. Cientos 
de programas disponibles aseguran entretenimiento sin 
límites. En el mundo de la enseñanza, con sus capacida- 
des gráficas y sonoras, el 6128 es una herramienta que, 
además, incluye el lenguaje educativo por excelencia: 
el Dr. LOGO de Digital Research. 

Para iniciarse y profundizar en el aprendizaje de la infor- 
mática, el 6128 es el ordenador idóneo, con uno de los 
más potentes y rápidos BASIC —el locomotive Basic—, 
así como otros muchos lenguajes de programación: LO- 
GO, FORTH, PASCAL, etc. 


TRABAJE CON EL 6128 


Haga un sitio en su negocio para 6128: planifica presu- 
puestos, lleva contabilidades, gestiona archivos, control 
de almacén... y su sistema operativo CP/M (en versiones 
2.2 y Plus) le permiten acceder a una inmensa biblioteca 
de programas profesionales: bases de datos, procesado- 
res de textos, hojas de cálculo electrónicas, etc. 


LISTO PARA CRECER 


Su AMSTRAD 6128 viene ya completamente listo para 
comenzar a trabajar, incluso nos hemos permitido incluir- 
le un disco obsequio que contiene seis excelentes pro- 
gramas. Cuando pase un tiempo, tal vez usted decida 
ampliar aún más las posibilidades del equipo. Se lo pone- 
mos fácil, rápido y, como siempre, a buen precio: Segun- 
da Unidad de Disco, modulador para conectar a un televi- 
sor, joysticks, sintetizador de voz, lápiz óptico, interfaz 
serie RS-232 C, impresoras... 


EL CPC 464 DE AMSTRAD 


El nuevo AMSTRAD CPC 464 no quedará pequeño 
cuando crezcan sus conocimientos. 

En su versión color o fósforo verde, su monitor dispone 
de una gran nitidez y excelente calidad de la imagen. Dis- 
pone de una paleta de 27 colores diferentes y la posibili- 
dad de utilizar efectos de «flash», donde puede direccio- 
nar, individualmente, cada uno de los pixels del monitor 
(640 x 200). Así como tener 8 «ventanas» de trabajo si- 
multáneas. 

Increíble su teclado, cassette y sonido. 

La unidad central del CPC 464 está compuesta por tres 
partes perfectamente diferenciadas: 

el teclado para programación, las teclas numéricas y de 
control del cursor y la unidad de cassette. 

El teclado es profesional tipo QWERTY con 74 teclas en 
4 colores diferentes para una más fácil visualización. Un 
hecho destacable es que 32 teclas pueden ser redefini- 
das o programadas a voluntad del usuario y, gracias a las 
teclas independientes para el cursor, el uso del joystick 
es, en muchos casos, innecesario. 

El teclado numérico, separado del resto de las teclas, fa- 
cilita enormemente las operaciones propias de programa- 
ción y cálculo. 

La unidad de cassette integrada es uno de los mayores 
orgullos técnicos de AMSTRAD. Su alta calidad y dos ve- 
locidades de funcionamiento, seleccionables por softwa- 
re, te facilitarán la carga y grabación de programas. 
Otro logro es el sonido del CPC 464: sus tres canales 
(definibles cada uno en tono y amplitud) y 7 octavas con- 
fieren al ordenador, junto con la posibilidad de conectarse 
a un equipo estéreo HI-Fl, una profesionalidad a toda 
prueba. 

La unidad Central lleva un altavoz interno regulable me- 
diante un potenciómetro exterior. 


Ref. .nueva 


AMC-100 
AMC-101 

AMC-102 
AMC-103 
AMC-104 
AMC-106 
AMC-107 
AMC-108 
AMC-109 
AMC-110 
AMC-111 

AMC-112 
AMC-113 
AMC-114 
AMC-115 
AMC-116 
AMC-117 
AMC-118 
AMC-119 
AMC-120 
AMC-121 

AMC-122 
AMC-123 
AMC-124 
AMC-125 
ÁMC-126 
AMC-127 
AMC-128 
AMC-1209 
AMC-130 
AMC-132 
AMC-133 
AMC-134 
AMC-135 
AMC-136 
AMC-137 
AMC-138 
AMC-130 
AMC-140 
AMC-141 

AMC-142 
AMC-143 
A b1C-144 

AMC-145 
AMC-146 
AMC-147 
AMC-148 
AMC-149 
AMC-150 
AMC-151 

AMC-152 
AMC-153. 


PROGRAMAS DE JUEGOS AMSTRAD 


Título 
JUEGOS 


HOME RUNNER 

GRAND PRIX 

HARRIER ATTACK 
SPANERMAN 

AGUILAS DEL ESPACIO 
LA PULGA ee 
FRED a : 
MASTERCHESS 
LASERWARP 
HAUNTED EDGES 
CODENAME MAT 
AMSGOLF , 
HUNCHBACK (QUASIMODO) 
HUNTER KILLER 

ROLAND EN EL TIEMPO 
ATOM SMASHER 

ELECTRO FREDDY 
ADMIRÁL GR4PH SPEE 
COMANDO ESTELAR 
MANIC MINER 

ASTRO ATTACK 

CILAK 

BILLAR (SNOOKER) 
ROLAND EN EL TREN 

Lá PLAGA GALACTICA 
ROLAND EN EL INFIERNO 
SIMULADOR DE VUELO 377? 
ROLAND AHOY 

EL PUENTE 

MA. WONG 

MUTANT MONTY 

TENIS 

LABERINTO DEL SULTAN 
PUNCHY 

ALIEN BREAK 
FALIT MACHINE 
OH MUMMY 
SPLAT 

CRAZY GOLF 
CUBIT 

3D INVASORES 
EL PREMIO 

JET BOOT JACK 


ROLAND EN EL ESPACIO 
PYJAMARAMA 

BOY SCOUT 

FANTASTIC VOYAGE 
THE KEY FACTOR 
JAMMIN 

SLPER PIPELINE 
TRAFFIC 
CATASTROPHES 


Ref.nueva 


AMC-154 
AMC-155 
AáMC-156 
AmMC-157 
AMC-158 
áhC-159 
AnMC-160 
AMC-161 
AMC-162 
AMC-163 
AMC-164 
AnmC-165 
AMC-166 
AMC-167 
AáMC-160 
AmMc-169 
AMC-170 
AMC-171 
Ant-172 
AnNc-173 
AmMc-174 
AMNC-175 


ANC-300 
AMC-301 
AMC-302 
AMC-303 
AMC-305 
AMC-306 


AMC-500 
AMC-501 
AMC-502 
AMC-503 
AMC-504 
AMC-505 
AMC-506 


AMC-507 
AMC-5080 
AMC-509 
AMC-510 


AMC-700 
AMC-701 
AMC-702 
AMC-703 
AMC-704 
ANMC-705 
AMC-706 


SORCERY 


ROLAND Y LOS CUBOS 


FRANK NW STEIN 

GATE CRASHER 

EL JUEGO DE LOS NUMEROS 

HOCKEY 

AIR WOLF 

GRAN PRIX RALLY 1! 

SUBTERRANEAN STRYKER 

ALIEN 

3 D STUNT RIDER 

DRAGUNS 

BRAXX BLUFF 

HOUSE OF USHER 

DEFEND OR DIE 

AJEDREZ TRIDIMENSIONAL (serie ora) 
3D GRAND PRIX (serie oro) 

3D BOXING (serie oro) 

SUPER TRIPPER (serie oro) 

FUTBOL (serie oro; 

ASALTO 

CAMPEONES DEL MUNDO DE RALLYS (s.oro) 


EDUCATIVOS 


ANIMAL, VEGETAL MINERAL 


PLANET ARIUMSTIERRA 
RIOS/CAPITALES 

PERSONAJES* CRONO 

EL CUERPO HUMANO (EL ESQUELETO) 
CONSTELACIONES 


PROFESIONALES 


Contabilidad Personal 
AMSCALC (Haja Cálculo) 
AMSWORDíProceso Textos) 
AMSWORD Il.Proceso de Textos 
AMSBASE. Base de Datos 


"STOCK-AID 


GENERADOR DE FACTURAS, 

FICHAS Y DOCUMENTOS(Invostat) 

BASE DE DATOS Y ETIQUETAS 
TRATAMIENTO DE FICHEROS(MesterFile) 
EL EMPRESARIO : 

HOJA DE CÁLCULO (MasterCalc) 


UTILIDADES 


DEVPAC.ENSAMBL¿DESENSAMBLADOR 
HISOFT PASCAL 

Diseñador de Pantallas 

anmSDRáw Gráficos y dibujos. 

GUIA DE PASCAL ibro) 

FORTH 

AMSTEST 


EL ORDENADOR QUE SUSTITUYE A LA MAQUINA DE 
ESCRIBIR 


Un completo ordenador profesional y una máquina de escribir 
con 400 posibilidades de escritura 


El ordenador concebido para sustituir 
a la máquina de escribir 


El PCW 8256 supone una revolución en el mundo de los orde- 
nadores personales. 

Su simplicidad de manejo, su completa configuración básica, 
que incluye teclado en castellano, unidad de disco, monitor de 
alta resolución, impresora y el potente procesado de textos Lo- 
coscript hacen de él un sistema completo apto para funcionar 
como un potente ordenador profesional, pero también como una 
extraordinaria máquina de escribir. 

Por ello, al utilizar el AMSTRAD PCW 8256, usted se beneficia- 
rá de una tecnología punta, a un precio realmente excepcional. 
La solución definitiva al proceso de textos. 

Sea cual sea su actividad o profesión, el PCW 8256 le «sacará» 
el trabajo pesado y rutinario. Con su procesador de textos Lo- 
coscript usted, aun sin conocimientos previos, podrá crear car- 
tas, documentos, minutas, presupuestos o informes y dejarlos 
grabados en el disco, para utilizarlos cuando sea necesario. 


La solución avanzada el ordenador personal. 

El AMSTRAD PCW 8256 es más que una prodigiosa máquina 
de escribir. Es un potente y avanzado ordenador profesional 
que le permitirá acceder con toda facilidad a la informática per- 
sonal. 

El PCW 8256 es un sistema integrado, dotado de una imple- 
mentación completa del sistema operativo CP/M Plus de Digital 
Research y del potente Mallard BASIC, que incluye la gestión 


Pequeño en precio, grande en 

equipamiento 

Unidad Central (256K RAM). 

Teclado profesional en castellano. 

Unidad de Disco (180K por cara). 

Pantalla de alta resolución. 

Impresora de alta calidad (NLQ). 

Programas en disco: ó 

“e. Procesador de textos LOCOSCRIPT. 

e Sistema operativo CP/M Plus. o 

e Mallard BASIC: con sistema JETSAM 
para ficheros indexados. 

e Lenguaje DR. LOGO. 

e Diversas utilidades. o 

Completa documentación y manuales en 

castellano. 


de ficheros indexados JETSAM. Utiliza un microprocesador 
Z80A y tiene una memoria RAM de 256 kilobytes, de los que 
aproximadamente 112K se usan como disco virtual. 

Incluye un teclado ergonómico de 82 teclas (con fñ, acen- 
tos, etc.), entre las que se incluyen teclas de función especiales 
para trabajar en proceso de textos, un monitor de alta resolu- 
ción (90 columnas x 32 lineas), una unidad de disco incorpora- 
da al monitor (3” y 180K por cara) y una impresora de alta cali- 
dad con códigos de control según el estándar de Epson cuando 
trabaja en CP/M. 

La utilización del CP/M Plus —sinónimo de CP/M 3.0— hace 
posible el uso de miles de programas disponibles, entre los que 
se encuentran los mejores de cada área, como el SUPER 
CALC 2, MULTIPLAN d BASE Il, CARDBOX, CRISTAL, BO- 
RIAR, etc., así como variados lenguajes de programación: PAS- 
CAL, COBOL, C. FORTRAN, FORTH, etc. Y para el mundo de 
la enseñanza se suministra el lenguaje DR. LOGO, de DIGITAL 
RESEARCH, acompañado del sistema de gestión de gráficos 
GSX. 

El PCW 8256 tiene opción a una segunda unidad de disco —a 
integrar en pantalla— con capacidad de 1 megabyte y opción 
de intefaz Serie PS-232/Paralelo Centronics; y, ademas, en- 
cuentra una muy especial aplicación como «terminal inteligen- 
te» (DEC VT 52/ZENITH 89) de grande ordenadores. 

En definitiva, coan el AMSTRAD PCW 8256, tareas como Con- 
tabilidad, Control de Stocks, Facturación, Bases de Datos, etc., 
quedan resueltas con eficacia y la máxima rapidez. 
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Este curso de Introducción al Basic se propone familiarizar al lector, con el mundo del 
ordenador y ayudarle en el desarrollo de los posibles programas que el aficionado pueda ir 
elaborando. 

El curso constará de 11 clases repartidas a lo largo de 11 números de nuestra revista. 

En este número hacemos un resumen del contenido de cada clase para facilitar e informar al 
interesado de cómo será el desarrollo del mismo. 

Esperamos que este curso cumpla los objetivos que nos hemos propuesto y sirva de ayuda 
para todos ustedes. 


AMSTRADMANIA N.? 1 AMSTRADMANIA N.* 3 
ESTRUCTURA DE UN ORDENA- LENGUAJES DE PROGRAMACION 
DOR Lenguaje MAQUINA 

CcPU Lenguaje ENSAMBLADOR 
MC Lenguaje de ALTO NIVEL 
UC Programas traductores 
UAL ENSAMBLADORES 
CAMPOS DE MEMORIA COMPILADORES 
Alfanuméricos INTERPRETES 
Numéricos INICIACION AL BASIC 
LOS LITERALES Instrucción de asignación - 
LAS CONSTANTES LET 
HARDWARE Presentación - PRINT 
SOFTWARE Entrada de datos - INPUT 
o e Variables 
Ejercicios | 
AMSTRADMANIA N.? 2 A 
ESQUEMA DE UN ORDENADOR 
Flujo de la información AMSTRADMANIA N.” 4 
LAS UNIDADES PERIFERICAS EMPEZANDO A PROGRAMAR 
MEMORIA | Las fórmulas 
ROM Jerarquía de los operadores 
RAM Cómo cambiar una instrucción 
Unidades de memoria La instrucción - REM 
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AMSTRADMANIA N.* 5 


PRESENTACION 
Algo más sobre - PRINT 
Utilización de la (,) y (;) 
Presentación de los resultados 
Cadena de caracteres y varia- 
bles de cadena 


AMSTRADMANIA N.* 6 


SALTOS INCONDICIONALES Y 
TRANSFERENCIAS DE CONTROL 
La instrucción - GO TO 
La instrucción - IF THEN 
Operadores lógicos 

Ejercicios 
AS EN 


AMSTRADMANIA N.? 7 


DATOS DE UN PROGRAMA 
Las instrucciones - READ Y 
DATA 


AMSTRADMANIA N.' 8 


PROCESOS ITERATIVOS 
Bucles - FOR NEXT 
Paso - STEP 
Entradas y salidas en bucles - 
FOR NEXT 
Interrupción de un programa 
Bucles anidados 


AMSTRADMANIA N.* 9 


Organigramas 
Ejercicios 

FUNCIONES 
Parte entera - INT 
Número aleactorio - RAND 
La función - PRINT TAB 


AMSTRADMANIA N.* 10 


LISTAS Y TABLAS 

Definición de listas y tablas 

Variables con un índice (vecto- 
res) 

Variables con dos índices (ma- 
trices) 

La instrucción - DIM 

Ejercicios 
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Cuaderno de apuntes 


AMSTRADMANIA, revista de microinformática, cuyo fin es divulgar y ayudar al lector, tiene el gusto de presentar 
su «cuaderno de programas». 

Su finalidad es la de posibilitar la conservación y el desarrollo de programas. 

El gran problema que se plantea a cualquier aficionado a la informática es dónde escribir sus programas. 
AMSTRADMANIA ha decidido resolver este problema ofreciéndoles en cada número una hoja tipo donde poder 
archivar y anotar sus posibles programas. 

Este cuaderno se divide en las siguientes partes: 


1. Aquí tiene que poner el título 
de su programa. 

2. Descripción del programa, 
pasos, evolución, 
funcionamiento del programa, 
etc. 

3. Número de línea del 
programa. 

4. Pasos, sentencias, órdenes o 
variables correspondientes a 
cada línea. 

5. Zona destinada al 
organigrama para facilitar el 
entendimiento y evolución del 
programa. : 


TITULO 


DESCRIPCION 


Recomendamos que los 
programas sean escritos con 
lápiz mientras se estén 
inventando, puesto que al hacer 
un programa es inevitable el 
tener que borrar una línea o 
cambiarla. 
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El propósito de este programa es 
ayudar a los niños a aprender y a 
repasar la tabla de multiplicar. Para 
ello, en primer lugar se recuerdan 
las tablas de multiplicar de todos 
los números. 


Luego, el niño deberá elegir un 
número para repasar su tabla, 
número por número. En caso de 
que el niño se equivoque en la 
respuesta, le dirá que se ha 
equivocado y le indicará cuál es la 
respuesta correcta. 


Una vez se ha terminado de 
repasar la tabla de un número, si 
ha habido errores el niño tiene la 
oportunidad de repasar otra vez, 
hasta que la sepa perfectamente. 


Cuando ya sabe la tabla de un 

número, puede repasar cualquier 
otro, hasta que sepa la tabla de 
multiplicar de todos los números. 


.o 


A A] 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


15 


20 


z1 


22 


23 


24 


25 


26 


er 


28 


29 


30 


31 


REM === TABLA DE MULTIPLICAR === 
REM === ses 
REM === por PAZ CERRILLO ==F 
REM s==s===s==s==s==ses=ooooooo=s===o==== 
REM 

REM ======= RECORDAR TABLA DE 


MULTIPLICAR DE TODOS LOS NUMEROS == 

REM 
MODE 1 

LOCATE 5,10:PRINT"TABLA DE MULTIPLICAR” 
LOCATE 5) LL PRINT AR 
FOR espera=1 TO 1000:NEXT espera 

ES 
REM 
FOR i=1 TO 10 
LOCATE 5, 1:PRINT CHRS$(24)53” 


LOCATE 5,2:PRINT "TABLA DE MULTIPLICAR 
DEL" USING" 5 i[" 5 cHRS(29) 

LOCATE 5,3: PRINT ” 
PRINT 

FOR j¡=1 TO 10 

PRINT TAB(10)3USING "R"5i5 
PRINT " X "¡USING "Phjjgs 
PRINT" ="jUSING "ft" 3iXj 

PRINT 

NEXT j 

FOR espera=1 TO 7000: NEXT espera 


NEXT i 


REM ======== REPASAR LA TABLA DE 
MULTIPLICAR DE UN' NUMERO ======= 


REM 


CcLs 


32 LOCATE 5,10 


33 PRINT "AHORA VAMOS A REPASAR ” 
39 LOCATE 4,12 

35 PRINT "LA TABLA DE MULTIPLICAR." 
36 LOCATE 10,15 

37 PRINT "DE ACUERDO?” 

38 FOR espera=1 TO 1500 :NEXT espera 
39 CLS 

40 LOCATE 5,10 

41 PRINT "QUE NUMERO QUIERES REPASAR" 
42 LOCATE 6,12 

43 PRINT "(pulsa un numero entre 1 y 10 
44 LOCATE 6,13 

45 PRINT " y luego la tecla <ENTER>)" 
46 LOCATE 32,10: INPUT numero 


47 IF numero<ií OR numero>10 THEN LOCATE 
32,10:PRINT ” "; GOTO 46 


48 CLS 
49 PRINT CHR$(239);” 


50 PRINT "TABLA DE MULTIPLICAR DEL 
"USING "Rf"5numero ";CHR$(24) 


51 PRINT ” 


52 PRINT 

53 fila=5 

54 errores=0 

55 FOR i=1 TO 10 

56 PRINT numero;3"X";i53"="3: INPUT a 


57 IF a<>numeroX*i THEN LOCATE 15,fila: 
PRINT "XXX TE HAS EQUIVOCADO XXX": 
LOCATE 21,fila+1:PRINT numero 3"X"”; 
ij3"="jnumeroX*Xi ¿errores 
=errores+tiífila=fila+3: ELSE LOCATE 
15,fila:PRINT "MUY BIEN!!! ”; 


tila=fila+2 


58 PRINT 


59 NEXT i 


IF errores>0 THEN errores=0:GOSUB 67: 
GOTO 48 


CLS: LOCATE 30,5 


PRINT "MUY BIEN!!! NO HAS TENIDO 
NINGUN ERROR” 


PRINT 


PRINT "Guieres repetir con otro numero 
"5: INPUT 5$ 


IF S$="si" OR s$="SI” OR s$="s” OR s$= 
"5" THEN GOTO 39 


REPETICION DE LA 
TABLA PORQUE HAY ERRORES 
cLS 
PRINT CHR$(24)3" 


PRINT "RECUERDA LA TABLA DE MULTIPLICAR 
DEL "¡USING "Rift”"3numero 


PRINT ” "CHR$(24) 
PRINT 
FOR n=1 TO 10 


PRINT TAB(S); numeros” X "¡USING "Fife" 
¿n5:PRINT" ="5USING "REF" 5numerokn 


PRINT 

NEXT n 

FOR espera=1 TO 7000: NEXT espera ! | Ñ Ne , 

cu | remitase 


LOCATE 1,10 


PRINT "AHORA VAS A REPASAR OTRA A a la pagina 
y | de suscripciones 


PRINT "LA TABLA DE MULTIPLICAR DEL 


¿numero 
PRINT:PRINT 


PRINT "PERO AHORA HAZLO BIEN... 
DE ACUERDO? ” 


FOR espera=1 TO 3000:NEXT espera 


RETURN 


Ayuda a la decisión: 
HIPOTESIS Y GRAFICOS 


Más que un simple gráfico, es una herramienta de análisis, en la que el gráfico es primero un medio de exploración y después un 
medio de comunicación. 

Permite, en primer lugar, convertir cifras a cualquier forma de gráfico para extraer de ellas todo su significado y luego realizar 
gráficamente todas las hipótesis, todos los cálculos, directa e instantáneamente. 

El análisis realizado puede reproducirse automáticamente, como una película, con nuevos valores, para explorar o para mostrar a 
los demás el camino de un razonamiento y las conclusiones que se desprenden de él. 


CARGAR DATOS: 

Cualquiera que sea su procedencia (series de cifras, cronológicas o no). 

1) Extraídos de un ordenador central, de acuerdo con el formato descrito en el manual. 

2) A partir de ficheros externos, como Multiplan, D base ll, Lotus, Symphony, Framework, Supercalc, es decir, Sylk, dif, fichero de 
impresora; todos los procedimientos de transferencia se memorizan en un macro comando. Por ejemplo: pulsando una tecla puede 
transferirse un fichero Multiplan sin salirse del entorno. 

3) Directamente desde el teclado. 

4) A partir de ficheros obtenidos por otras aplicaciones. 


VISUALIZAR: en 130 gráficos diferentes 
10 familias de gráficos de las que una es un dibujo, líneas, puntos, líneas y puntos, barras, pilas, tartas, pirámides, nubes, cuadro de 
cifras y formas. 


20 opciones gráficas en color o monocromo, en relieve o plano, con o sin rejilla, con o sin etiquetas, con o sin valores vertical u 
horizontalmente, etc... 

Se puede escribir en cualquier lugar de la pantalla, horizontal o verticalmente, en 9 tamaños (función de texto) y dividir la pantalla 
por cuartos o por mitades (9 posibilidades). 


CALCULAR: con 30 funciones registradas y otras programables: 

1) Aplicar las 4 operaciones a todas las series entre ellas. 

2) Utilizar más de 30 funciones de cálculo pre-registradas (tása de crecimiento, desviación medida, desviación total, total anual, total 
de los períodos, porcentaje, regresión, clasificación creciente o decreciente, inversión de series, modificar la duración o periodici- 
dad, calcular informaciones estadísticas como: media, suma, diferencia, exceso, defecto, etc... logaritmos, seno exponencial, poten- 
cia). 

3) Combinar las funciones de cálculo entre ellas para obtener directamente la resultante de varias. 

4) Introducir por teclado sus propias fórmulas. 


REGISTRAR MACROCOMANDOS: 

Por sí mismo o automáticamente las manipulaciones efectuadas a lo largo de una sesión de análisis a fin de reproducir toda la 
secuencia con otros datos. 

Por ejemplo: repetir automáticamente el mismo análisis de todos los productos y todas las regiones cada mes. 


COMPONER UNA PELICULA: 
Encadenando automáticamente diferentes gráficos, en diversas divisiones de pantalla, intercalando comentarios escritos para una 
presentación sobre pantalla (duración ilimitada). 


MEMORIZAR: 
Sobre diskette o disco duro series de cifras, imágenes de pantalla, macrocomandos, cálculos, procedimientos de transferencia, 
películas... 


IMPRIMIR/DIBUJAR: 

Impresora matricial gráfica IBM, EPSON, C-ITOH-NEC, OKI 84, FACIT 45-10 MANNESMAN TALLY, IDS, DATA PRODUCT, PRISM. 
Mesa de trazado HP 74-70, 74-75 y 75-50, CLACOMP M 84, GOULD EN A3 Y A4, Colortrace y máquinas compatibles. 
Configuración: IBM, PC, XT o AT y compatibles con un mínimo de 256K, tarjeta gráfica IBM Hércules, STB, PARADISE y pantallas de 
color, monocromas o de videocompuesto (posibilidad sin tarjeta: directamente sobre impresora). 

Hipótesis y gráficos es un producto francés concebido y realizado por Carol Frachon y Marc Riso. 

Nombre de la colección: HIPOTESIS Y GRAFICOS, MARKETING COMERCIAL. 
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1. Programas las suyas. 2. Primero entender, después 3. Desmenuzar visualmente 4. Correlación de dos series. 


A hacer entender. la situación. 
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Con este juego de cartas toda la 
familia podrá pasar un rato 
divertido intentando sumar 7,5 
puntos con las cartas repartidas en 
cada jugada. 


Pueden jugar cuantas personas 
quieran. El ordenador indica el 
nombre del jugador al que le 
corresponde jugar, reparte una 
carta y pregunta si se quiere más, 
hasta que él se planta (no quiere 
más cartas), consigue siete y 


media o se pasa (es decir, 
acumula más de 7,5 puntos). Para 
calcular la puntuación se ha de 
tener en cuenta que las figuras 
(sota, caballo y rey) valen 0,5 
puntos. 


Demostrará mayor habilidad el 
jugador que tenga la intuición 
necesaria para plantarse a tiempo 
o, por el contrario, arriesgarse a 
pedir otra carta y conseguir SIETE 
Y MEDIA. 


REM ==================================== 
REM JUEGO DE LAS SIETE Y MEDIA 
REM : 
REM por PAZ CERRILLO 
REM sss===s=====oooo=co=o=============== 
REM 
REM pedir nombre de los jugadores 
REM 
MODE 1 
10 LOCATE 10,2 
11 PRINT CHR$(29);" SIETE Y MEDIA "5CHR$(24) 
12 LOCATE 1,5: INPUT "CUANTOS JUGADORES” ;Nmrjugadores 
13 DIM Nombrejugador$(Nmr jugadores) 
14 FOR i=1 TO Nmrjugadores 
PRINT ” NOMBRE JUGADOR "51; 
INFUT Nombrejugador$(i) 


IF Nombrejugador$(i)<>”"” THEN 
Nombrejugador$(i)=UPPERS(LEFTS(Nombre 


jugador$(1),10)) ELSE Nombrejugador$(1)=STR$(i) 
NEXT i 

REM 

REM inicializaciones 

REM 

GOSUB 195; ? ir a inicializar baraja 
REM crear las ventanas 

WINDOW F1,9,31,9,149 

WINDOW Pt2,17,29,17,23 
turno=1:puntuacion=0 

GOSUB 124: ? ir a representar pantalla 
LOCATE 10,5 

PRINT nombreJugadors$(1) 

REM 

REM repartir cartas 

REM 


IF cartasrepartidas=20 THEN cartasrepartidas=0: 
GOUSUB 195: ”? iniciali 


zar la baraja 

34 palo=INT (RNDX9+1) 

35 carta=INT(RNDX*10+1) 

36 IF palo=1 THEN n=226;? treboles 
37 IF palo=2 THEN n=227?:” rombos 

38 IF palo=3 THEN n=228:”* corazones 
39 1F palo=4 THEN n=229:* picas 


30 IF barajalpalo,carta)=1 THEN 234 
ELSE baraja(palo,carta)=1 


41 cartasrepartidas=cartasrepartidas+1 


GOSUB 23: *” ir a representar la carta en pantalla 


GOSUB 115: ? ir a aniadir la carta en la serie de 
cartas ya extraidas 


REM : o 


REM calcular puntuacion 
REM 


IF carta<=2? THEN puntuacion=puntuaciont+carta 
ELSE puntuacion=puntuacion+0.5 


LOCATE 35,S:PRINT USING "RFk.F”";puntuacion 

IF puntuacion>=7.5 THEN 61 

REM 

REM Otra carta? 

REM 

LOGCATE 1,19:PRINT CHR$(24); "QUIERES OTRA”;CHR$(249) 
LOCATE 3,21:PRINT CHR$(29);"CARTA?"5CHR$(24) 
a$=INKEYS$: 1F a$="" THEN GOTO 55 

LOCATE 1,19:PRINT STRING$(15," ”) 

LOCATE 1,21:PRINT STRING$(15," ”) 

IF a$="s” OR A$="S" THEN 31 

JF a$<>"n” AND a$<>"N” THEN 53 

GOTO ?1 

REM 

REM presentar salida o 
REM 


IF puntuacion=7.5 THEN salidas$=" 


ENHORABUENA! !! 
HAS CONSEGUIDO "+ CHR$(294)+" SIETE Y MEDIA" +CHR$ (240) 


ELSE salida$=" TE HAS PASADOOOO.....” 
cLs 
LOCATE 1,10 : ES 


PRINT salidas 


FOR espera=1 TO 1000:NEXT espera 


GOSUB 124: ” ir a presentar pantalla 
REM : 

REM Otra jugada 

REM 

CLSFri 

puntuacion=0 


IF turno<Nmrjugadores THEN turno=turno+1 
ELSE turno=1 


LOCATE 10,5 

PRINT STRING$(10,” ”) 

PRINT STRING$(10," ”) 
LOCATE 10,5 

PRINT nombreJugadors$(turno) 
GOTO 31 


REM 


REM dibujar carta 
REM 

CLSP2 

PLOT 250,20 

DRAW 250,150 

DRAW 395,150 

DRAW 395,20 


DRAW 250,20 


ON carta GOSUB 92,98,93,101,93,107,107,92,92,93 


RETURN 
LOCATE 21,20:PRINT CHR$(n) 
IF carta=5S THEN GOTO 101 
IF carta=3 THEN GOTO 98 
IF carta>7? AND carta<=10 THEN GOTO 110 
RETURN 
LOCATE 17,17:PRINT CHR$(n) 
LOCATE 24,23:PRINT CHR$(n) 
RETURN 
LOCATE 17,17:PRINT CHR$(n) 
LOCATE 24,23: PRINT CHR$(n) 
LOCATE 17,23:PRINT CHR$(n) 
LOCATE 24,17: PRINT CHR$ (n) 
IF carta=7 THEN GOTO 93 
RETURN 
LOCATE 17,20:PRINT CHRS (n) 
LOCATE 24,20:PRINT CHR$(n) 
. GOTO 101 
LOCATE 17,17:1F carta=8 THEN PRINT"sota"” 
IF carta=9 THEN PRINT"caballo” 
IF carta=10 THEN PRINT"rey” 
RETURN 
REM 
REM aniadir carta en el recuadro de cartas 


extraidas 
REM 


1F carta=8 THEN cartat= ” SOTA” 

IF carta=9 THEN carta$= " CABALLO” 
IF carta=10 THEN cartat= " REY” 

IF carta<=7 THEN carta$=STR$(carta) 
PRINT Pri,cartas+CHR$(n)+", "; 
RETURN 

REM 

REM presentar pantalla 


REM 


CcLs 


LOCATE 10,2 
PRINT CHR$(24);" SIETE Y MEDIA ”3CHR$(24) 


LOCATE 3,S5:PRINT CHR$(24) 5 "TURNO: "5 CHR$(24) 


LOCATE 20,5:PRINT CHR$(24); "PUNTUACION: ";CHR$(24) 


LOCATE 10,8:PRINT " LLEVAS LAS CARTAS: " 
REM marco de cartas extraidas 
PLOT 500,300 
DRAW 125,300 
DRAW 125,175 
DRAW 500,175 
DRAW 500,300 
PRINT Fri 
RETURN 
REM 
REM inicializar la baraja 
REM 
LOCATE 10,5 
PRINT NombreJugadors$(turno) 
REM inicializar baraja 
FOR i=1 To 4 
FOR j=1 TO 10 
baraja(i,j)=0 
NEXT j 
NEXT i 
RETURN 


Y 
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a. 


Soy suscriptor de la 
revista 
AMSTRADMANIA y 
deseo hacerme 
socio del «club», 
para lo cual ruego 
me sea enviado el 
carnet. 


Este programa le permitirá con 
sencillez manejar su agenda 
familiar. Puede utilizarlo para anotar 
los cumpleaños de sus amigos, el 
día que tiene que ir al médico, 
cuándo tiene que pagar el seguro 
del coche, etc. 


El ordenador le preguntará qué 
operación quiere hacer: 


e Apuntar una información que 
desea recordar. 

e Borrar una información ya 
pasada. 

e Ver todo lo que tiene anotado 
en la agenda. 

e Ver todo lo que tiene que hacer 
en un determinado mes. 


Recuerde que si quiere conservar 
toda la información que ha estado 
introduciendo o borrando durante 
una sesión de ordenador, debe 
grabarlo en la cinta antes de 
apagar el aparato. 


Podrá tener cuantas agendas 
quiera: una con los cumpleaños, 
otra con las citas laborales... 


PROGRAME 


SUS OLVIDOS 


6 MODE 2 e 


7 REM 


8 REM declarar e inicializar la agenda 


9 REM 6 
10 DIM Agenda$(12,31),DiasDelMes(12) 
11 DiasDelMes(1)=31: DiasDelMes(2)=29 :DiasDelMes(3)=30 
12 DiasDelMes(4)=31: DiasDelMes(5)=30 :DiasDelMes(6)=30 $ 
13 DiasDelMes(7)=31: DiasDelMes(8)=31 :DiasDelMes(9)=30 
14 DiasDelMes(10)=31: DiasDelMes(11)=30:DiasDelMes(12)=31 
15 GOSUB 128 hd 
16 REM 
17 REM” ======= PRESENTAR MENU DE OPCIONES  ========= 
18 REM 0 
19 CES 
20 PRINT:PRINT:PRINT 
21 PRINT" 1.- VISUALIZAR INFORMACION DE UN MES":PRINT 
22 PRINT" 2.- VISUALIZAR TODA LA AGENDA":PRINT 
23 PRINT" 3.- INSERTAR INFORMACION DE UN DIA":PRINT O 
24 PRINT" 4.- BORRAR INFORMACION DE UN DIA":PRINT 
25 PRINT" 5.- GRABAR LA AGENDA EN CASSETTE": PRINT z 
26 PRINT"” 6.- ACABAR": PRINT La] 
27 PRINT:PRINT:PRINT : 
28 PRINT CHR$(24);” 
29 PRINT ” PULSA UN NUMERO DEL ”*1” AL >72” ” ES 
30 PRINT " DEPENDIENDO DE LO QUE QUIERAS HACER " 
31 PRINT " Z " ¡CHR$(24) 
32 AS$=INKEYS: IF As$="" THEN 32 O 
33 IF A$<"1" OR A$>"6” THEN LOCATE i,1:PRINT CHR$(7) : 

GOTO 32 
34 ON VAL(A$) GOSUB 39,61,96,110,170,36 . : 
35 IF A$<>"6" THEN 19 $ 


37 


76 


ES 77 


78 


79 


3 80 


8l 


PRINT CHR$(24); ” 5 
PRINT " VISUALIZAR INFORMACION DE UN MES ” 


PRINT ” "3CHR$(24) 


LOCATE 10,10 


PRINT ” QUE MES QUIERES VISUALIZAR?" 

PRINT ” di un numero del 1 al 12 segun sea el mes "; 
INPUT mes 

IF NOT  (mes>=1 AND mes<=12) THEN 41 

GOSUB 194: ” ir a obtener nombre del mes 

cLs 


PRINT CHR$(24) ;mes$;CHR$(24) 

FOR d=1 TO dasteiie mes 
GOSUB 80; ”? ir a visualizar dia 

NEXT d 

PRINT 


CUALQUIER 
TECLA ”j CHR$(249) 


PRINT CHR$(294);" PUL SA 


K$=INKEYS: IF K$="" THEN 58 » 
RETURN 


REM 


cLs 
PRINT CHR$(24);5 ” » 
PRINT » 


VISUALIZAR TUDA LA AGENDA A 


PRINT " "3CHR$(249) 
PRINT 


FOR mes=1 TO 12 


GOSUB 199 : ” ir a obtener el nombre del mes 
PRINT CHR$(24) ¡mes$;CHR$(24) 
FOR d=1 TO DiasDelMes (mes) 
— GOSUB 80 : ” ir a visualizar dia 
NEXT d 
NEXT mes 
PRINT 
PRINT CHR$(29);" PUL S.A CUALQUIER 


TECLA"; CHR$(24) 


KS=INKEYS: IF K$="" THEN 77 
RETURN 

REM 

REM — VISUALIZAR DIA 


REM 


car$=MID$(agenda$(mes,d),1,1) 


83 IF (car$="h") OR (car$="X") THEN GOTO 94 

84 I=1 

85 PRINT :PRINT d 

86 WHILE (car$<>"*") AND (car$<>"h") 

87 PRINT car$; 

88 i=i+1 

89 car$=MID$(agenda$(mes,d),i,1) 

90 WEND 

91 IF car$="X%" THEN PRINT:i=i+1: car$=MID$(agenda$ (mes, d) 

92 1F cars<>"h" THEN 86 pao 

93 PRINT 

94 RETURN 

95 REM 

96 REM ========= INSERTAR INFORMACION =================== 

97 REM 

98 CLS 

99 PRINT CHR$(24); ” ds 

100 PRINT " INSERTAR INFORMACION —,” 

101 PRINT il "5CHR$(24) 

102 GOSUB 207: ' ir a pedir dia y mes 

103 LOCATE 1,15 

104 PRINT ” QUE INFORMACION QUIERES INTRODUCIR?" 

105 PRINT:LINE INPUT INFORMACION$: INFORMACTION$=UPPERS 

(INFORMACION$) 

106 Agenda$(mes,dia)=LEFT$(agenda$(mes,dia),LEN 
(agenda$í(mes,dia))-1)+intormacion $+"*X"+*"p" 

107 NmrDatos=NmrDatos+1 

108 RETURN 

109 REM 

110 REM ================== BORRAR INFORMACION =========== 

111 REM 

112 CLS 

113 PRINT CHR$(294); " ” 

114 PRINT E BORRAR LA INFORMACION DE UN DIA ” 

115 PRINT e "5CHR$(24) 

116 GOSUB 207: ” ir a pedir dia y mes 

117 GOSUB 199; ? ir a obtener el nombre del mes 

113 PRINT:PRINT:FRINT 

119 PRINT mess$ 

120 d=dia 

121 GOSUB 80 : * ir a visualizar dia 

122 PRINT CHR$(24);" QUIERES BORRARLO ¡S/M¿?"5CHR$(24) 

123 K$=INKEYS: IF k$="" THEN 123 

124 IF K$="S" OR K$=”"s" THEN agendat(mes,dia)="h": 


125 
126 


NurDatos=NmrDatos-1 ¡RETURN 
IF k$<>"n" AND k$<>"N"” THEN 123 
RETURN 


REM 


REM ============== PREPARAR LA AGENDA PARA SU USO LOCATE 10,10 3 O 


REM PRINT ” PARA GRABAR TODA LA INFORMACION DE LA AGENDA” 


cLs ' 3 LOCATE 10,12 


LOCATE 20,5 PRINT " POSICIONA LA CINTA EN DONDE QUIERAS GRABARLA" e 


PRINT CHR$(249);: ” LOCATE 10,14 a . 


LOCATE 20,6 PRINT " CUANDO LO HAYAS HECHO, PULSA <REC>,<PLAY> ” 


PRINT AGENDA ” LOCATE 10,16 


LOCATE 20,7 PRINT » y CUALQUIER OTRA TECLA” 


PRINT s ";CHR$(24) a$=INKEYS: IF a$="" THEN 181 Oo 


LOCATE 1,10:PRINT " TIENES YA GRABADA LA AGENDA?” OPENCUT"!agenda.dat" 


PRINT PRINTF9,NmrDatos 


PRINT * (contesta *S” ¡Slé o 'N” ¡NOdc ) ” FOR m=1 TO 12 a 


Ks$=INKEYS: IF K$="" THEN 140 FOR d=1 TO DiasDelMes(m) 


IF K$="N" OR K$="n" THEN NmrDatos=0:PRINT:; PRINT ” IF NOT (MIDS(agenda$ (m,d),1,1)="R") THEN 
ESPERA UN MOMENTO... ESTO] Y INICIALIZANDO LA AGENDA" PRINTR9,d,m, agendas (m, d) 
:GOSUB 162: RETURN NEXT d (Es) 


IF KEZ>"S" AND k$<>"s" THEN GOTO 131 MET e 


PRINT:PRINT CLOSEOUT 


PRINT- " ENTONCES TIENES QUE PASARLA DE LA CINTA A LA bid Oo 
MEMORIA DEL ORDENADOR” REM 


REM OBTENER NOMBRE DEL MES 


GOSUB 162: * ir a inicializar la agenda 


” cargar la agenda en memoria REM 


PRINT j IF mes=1 THEN mes$=" ENERO " 


PRINT "  POSICIONA LA CINTA DONDE TENGAS LA AGENDA. ” IF MES=2 THEN MES$=" FEBRERO " 


PRINT- MES=3 THEN MES$=" MARZO 


4 TH MES$=" ABRIL ” 
PRINT ” CUANDO LO HAYAS HECHO, PULSA <PLAY> Y LUEGO AS EN 


CUALQUIER OTRA TECLA” IF MES=5 THEN MES$=" MAYO " 
as=INKEYS: IF as$="" THEN 151 IF MES=ó THEN MES$=" JUNIO ” 
OPENIN ”!agenda.dat” IF MES=7 THEN MES$=" JULIO ” 
INPUT R9,NmrDatos IF MES=8 THEN MES$=" AGOSTO " 

FOR i=1 TO NmrDatos IF MES=9 THEN MES$=" SEPTIEMBRE A 
INPUT M9,d,m,datos$ IF MES=10 THEN MES$=" OCTUBRE " 
agendaS (m,d)=datos$ 1F MES=11 THEN MES$=" NOVIEMBRE ” 


NEXT i IF MES=12 THEN MES$=" DICIEMBRE ” 


CLOSE IN 
RETURN 


INICIALIZAR AGENDA 


FOR i=1 TO 12 
FOR j¡=1 TO 31 


Agenda$(i,j)="Rk" 3” fin de la informacion 
NEXT j Ñ 
NEXT i 


RETURN 


RETURN 

REM pedir mes y dia 

REM 

LOCATE 10,10 

PRINT " MES? ( pulsa un numero del 1 al 12 )”; 
INPUT mes 

LOCATE 10,12 


PRINT ” DIA? ( pulsa un numero del 1 al 31 )”; 


INPUT dia 


IF MES<1 OR MES>12 THEN PRINT:PRINT "XXX MES 


ERRONEO. REPITELO XXX": FOR espera=1 TO 1000: NEXT 


espera: CLS;GOTO 210 


IF DIA>DiasDelmes(mes) THEN PRINT: PRINT "*X%X* DIA 


ERRONEO. REPITELO XXX": FOR espera=1 TO 1000: NEXT 


espera: CLS:GOTO 210 


RETURN 


LABERINTEE 


CPP CAM 


o ¡Sco ICA ' (LA BGIIIAT. Gk 


Se encuentra encerrado en un 
laberinto del que tiene que tratar 
de salir. Intente para ello salvar los 
obstáculos que hay en su interior, 
a la vez que va acumulando 
puntos para conseguir salir glorioso 
del encierro. 


Demuestre su habilidad y piense el 
siguiente movimiento, pues tiene un 
determinado número de 


- Oportunidades para llegar a la 


salida. Si no llega a tiempo, 
quedará encerrado y perderá. 


Para moverse dentro del laberinto 
utilizará las teclas de los 

números 2, 4, 6 y 8, para moverse 
hacia abajo, hacia la izquierda, 
hacia la derecha y hacia arriba, 
respectivamente. 


¡A ver si consigue comer todos los 
puntos! 


6 MODE 1 

7 DIM mapa(21,40) 

8 REM 

9 DATA 143,143,143,143,143,143,143,143,143,143,143,143,143,143,143,1 
43,143,143,1 43,143,143,143,143,143,143,143,143,143,143,143,143,1 
43,143,143,143,143,143,143,143,143 

10 DATA 143,144,144,144,144,144,144,144,143,193,144,144,144,143,143, 
143,144,144,:144,144,144,143,144,144,144,144,144,144,144,144, 144, 
144,144,144,144, 194, '148, 148, 134, '143 


11 DATA 143,144,143,144,143,144,143,144,144,144,144,143,144,143,144, 


143,144,143,|143,143,143,143,144,143,143,143,143,143,143,143,143, 8 
143,143,143,144,143,144,143,143,143 


2 , 
12 DATA 143,144,143,144,143,144,143,144,143,143,143,143,144,143,144, 
143,144,143,144,144,144,144,144,143,144,144,144,144,144,144,144, 
144,144,143,144,143,144,143,144,143 PS 


13 DATA 143,144,143,144,143,144,143,144,143,144,144,144,144,143,144, 
143,144,143, 144,143,143,143,143,143,144,143,143,143,143,143,144, 
143,144,143,144,143,144,143,144,143 


14 DATA 143,144,144,144,144,144,143,144,143,144,144,143,143,143, ,144, Y 
194,144,144,/144,143,144,144,144,144,144,143,144,144,144,144,144, 


143,144,143,144,143,144,143,144,143 


15aDAZA1448pt 44 py 443, 143,143, 144,143,143,143,143,144,144,144,149,1449, 


70 PRINT". si pulsas un 8 vas hacía arríba” : o 
71 PRINT 

72 PRINT 

73 PRINT" Usa el teclado numerico,” 

74 PRINT* pues te sera mas facil familia-" 0 
75 PRINT" rizarte con las direcciones” 


76 PRINT:PRINT:PRINT 


77 PRINT TAB(5)3 CHRS(24)j” ”+CHR$ (24) O 


PULSA TECLA 

78 as=INKEYS: IF a$="" THEN 78 
79 REM 
80 REM DIBUJAR EL LABERINTO > E 55) 
81 REM 
82 CLS 
83 FOR i=1 TO 21 
84 FOR j¡=1 TO 40 0 
es READ mapa(i,j) 
86 PRINT CHRS(mapa(i,3))5 
87 NEXT j : 8 
88 NEXT i 
89 REM 
90 REM SITUAR LOS PUNTOS GORDOS a 
91 REM 
92 FOR j=1 TO 20 
93 x=INT(RNDX21)+1 
94 y=INT(RNDX40)+1 i e 
95 IF mapa(x,y)=144 THEN mapa(x,y)=231:LOCATE y,x:PRINT 

cHrs(231) ELSE GOTO 93 
96 NEXT J 
97 EVERY 500 GOSUB 204 O 
98 puntos=0 
99 NmrMovimientos=200 , 
100 LOCATE 1,23 e 


101 PRINT CHR$(29);"P UN TC S";CHRE(Z4) 
102 LOCATE 15,23 


103 PRINT puntos 


104 REM P 
105 REM SITUAR EL MUNECO 


106 REM 
107 i=16:j=1:LOCATE j,i:PRINT CHR$(24€) 
108 fin$="no" 


109 FOR k=1 TO NmrMovimientos 


110 a$=INKEYS: IF a$="" THEN 110 

111 IF a$<>"2" AND a$<>"4" AND a$<>"6" AND a$<>"8" THEN 
LOCATE 1,1:PRINT CHR$(7): GOTO 110 

112 ON VAL (a$)/2 GOSUB 139,153,167,181 

113 - IF mapa(i,j)=207 THEN 115 

114 NEXT k 

115 REM 


116 REM acabar 
117 REM 
118 CLS 


119 fins$="si"” 


120 IF mapati,j)<>207 THEN salidas$=" O0000H !'!!! TE HAS QUEDADO 
ENCERRADO EN EL LABERINTO... TEN MAS CUIDADOLA PROXIMA VEZ” 
¿GOTO 127 


121 IF puntos<300 THEN salida$=" HUY, QUE POQUITOS PUNTOS HAS 
COMIDO... TIENE S QUE PRACICAR MAS" 


122 IF puntos>=300 AND puntos<500 THEN salida$=" ESTA BIEN, PERO 
TRATA DE PRACTICAR UN POCO MAS” 


123 IF puntos>=500 THEN salidaf= " MUY BIEN !'!'!! ESTO DE SALIR DE 
LoS LABERINTOS ES LO TUYO” 


124 CLS 
125 LOCATE 5,10 


126 PRINT CHR$(24); ” HAS CONSEGUIDO ”"j CHR$(24); puntos; 
CHR$(24)5 " PUNTOS "; CHR$(24) 


127 LOCATE 1,12 
128 PRINT salidas 
129 LOCATE 1,22 
130 PRINT CHR$(23);" QUIERES JUGAR OTRA VEZ? "¡CHR$(24) 
131 PRINT 
132 PRINT" (contesta *'S” ¡SId¿ o 'N” ¡NOd ) 
133 as=INKEYS: IF an THEN 133 
1394 IF a$="s" OR a$="S" THEN RESTORE:CLS:GOTO 79 
135 IF as<>"N" AND as<>"n" THEN LOCATE 1,1:PRINT CHR$(7):GOTO 129 
136 CLS 
137 END 
138 REM 
139 REM ============ mov abajo ===="==========E=========== 
190 REM 
141 IF i+1>21 THEN SOUND 1,800,10,5: RETURN 
142 IF mapa(i+1,j)=143 THEN SOUND 1,800,10,5: RETURN 
143 IF mapa(i+1,j)=231 THEN mapa(i+1,j)=128:GOSUB 195 
144 IF mapa(i+1,j)=144 THEN mapa(i+1,j)=128:GOSUB 199 
145 REM borrar muneco anterior y colocar el nuevo 
146 LOCATE j,i E 
147 PRINT ” " 
148 i=i+1 : 
149 LOCATE j,i 
150 PRINT CHR$(248) 
151 RETURN 
152 REM 
153 REM' ============ mov izquierda ======================== 


154 REM 


1155 


156 
157 
158 
159 
160 
161 

162 


163 


:164 


165 

1é66 

167 
168 
169 
170 
171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
198 
196 
197 


198 


"199 


200 
201 
202 
203 
204 
205 
206 
207 
208 


209 


IF j-1<1 THEN SOUND 1,800,10,5:RETURN 

IF mapa(i,j-1)=143 THEN SOUND 1,800,10,5:RETURN 
IF mapa(i,j-1)=231 THEN mapa(i,j-1)=128:GOSUB 195 
IF mapa(i,j-1)=144 THEN mapa(i,j-1)=128:G0SUB 199 
REM bcrrar muneco anterior y colocar el nuevo, 
LOCATE j,i 

PRINT " "” 

j=j-1 

LOCATE j¿, i 

PRINT CHR$(243) 


RETURN 


REM ============= mov derecha ============================ 
REM a 

IF j+1>40 THEN SOUND 1,800,10,5: RETURN 

IF mapa(i,j+1)=143 THEN SOUND 1,800,10,5: RETURN 
IF mapa(i,j+1)=231 THEN mapal(i,j+1)=128:GOSUB 195 
IF mapali,j+1)=144 THEN mapa(i,j+1)=128:GOSUB 199 
REM borrar muneco anterior y colocar el nuevo 
LOCATE j,i 

PRINT *” * 

j=j+l 

LOCATE j,i 

PRINT CHR8(248) 


RETURN 


RS 
REM 

IF j-1<1 THEN SOUND 1,800,10,5: RETURN 

IF mapa(i-1,3)=143 THEN SOUND 1,800,10,5: RETURN 

IF mapa(i-1,j)=231 THEN mapa(i-1,3)=128:G0OSUB 195 

IF mapa(i-1,1)=144 THEN mapa(i-1,j)=128:G0SUB 199 

REM borrar muneco anterior y colocar el nuevo 

-LOCATE j;51 

PRINT ” ” 

imi-1 

LOCATE j, 1 

PRINT CHR$(248) 

RETURN 

REM 

REM puntos 

... 

LOCATE 15,23: puntos=puntos+20 SPRINT puntos 
RETURN 

LOCATE 15,23:puntos=puntos+1:PRINT puntos 

RETURN 

REM 

REM recordar el numero de movimientos que quedan 
REM 

IF fine="si" THEN RETURN 

LOCATE 5,25 

PRINT CHR$(24);"te quedan"¡NmrMovimientos-k;"movimientos”;CHRs 
FOR x=1 TO 5O00:NEXT 

LOCATE 5,25:PRINT STRINGS(30," ") 


RETURN 


LABERINTO por PAZ CERRILLO 


Lx MINA. 


PONEMOS atú disposición 
el mejor equipo de especialistas: 


AMSTRAD. Apricot 


= ITEMAN 
y compatibles PC. 


Tenemos el software, que necesitas para sacarle el ma- 
yor partido a tu AMSTRAD € OPBASEII-WORO STAR -MULTI- 
PLAN-COBOL-FORTRAN- E.T.C.)> 

SOFTWARE DE GESTION 


HERMOSILLA 75-71" 0ofna.14 
tfnos. 2764394 - 4350470 
MADRID 28001 


LA FLOTA 


Trate de hundir los 10 barcos que 
hay escondidos en el dibujo que 
aparece en la pantalla, teniendo en 
cuenta que no puede haber dos 
barcos juntos. 


Si no acierta al intentar hundir un 
barco aparecerá un punto en la 
posición que había señalado, y si 


lo hunde, un asterisco. El barco 
hundido se rodeará 
automáticamente de agua. 


Intente hundir toda la flota en el 
menor número posible de disparos. 


REM === HUNDIR LA FLOTA === 
REM === === 
REM === por PAZ CERRILLO === 
REM =========e=soso=SoS=smo========= 
MODE 2 
DIM mapa$(9,6),posx(9,6),posy(9,6) 
.hundidos=0 
REM =============== 22 ===== 
REM presentar el mapa en pantalla 
REM =e==========ocococcoooooocoiooonsmo=== 
CcLs 
PRINT CHR$(24);5"” BARQGUITOS "¡CHR$(29)5 
GOSUB 93 
LOCATE 14,3:PRINT"X --->A B C D E F GH 1” 
LOCATE 10,6:PRINT"Y ---->” 
a=0 
FOR i=6 TO 21 STEP 3: LOCATE 17,i:a=a+1:PRINT a:NEXT-i 
FOR j¡=5 TO. 20 STEP 3 
FOR i=20 TO 94 STEP 3 
LOCATE i,j:PRINT CHR$(135);CHR$(131)5CHR$(139) 
LOCATE i,j+1:PRINT CHR$(133);3"” ”;CHR$(138) 
LOCATE i,j+2:PRINT CHR$(191);CHR$(190);CHR$(1492) 
NEXT i 
"NEXT j 
REM ============o=cooosnioiom== 
REM inicializar posiciones 
REM ===============================2 
FOR i=1 TO 9 
FOR j¿=1 TO 6 
posx(1,j)=18+i%3 
posy(i,j)=3+3%j 
NEXT j 
NEXT i 
REM ============================== 
REM inicializar mapa 
REM ====================o========= 


FOR i=1 TO 9 


FOR j¡=1 TO 6 i RETURN 
mapa$(i,j)="." REM Sraanonanncaenrrraronoraaaerdesemas=e=u=S 
REM presentar *'*' y rodear de agua 
REM Esa ccoo ooo ooo ooo ccoo oooooooooosco==== 
LOCATE x,y:PRINT"*" 
REM colocar barquitos IF (x-3)>=21 AND (y-3)>=6 THEN LOCATE x-3,y-3:PRINT”.” a 
As IF (x-3)>=21 THEN LOCATE x-3,y:PRINT"." 
FOR i=1 TO 10 IF (y-3)>=6 THEN LOCATE x,y-3:PRINT"." 
READ x,y:mapa$(x,y)="X" IF (+3) <=45 AND (y+3)<=21 THEN LOCATE x+3, y+a:prinT»." O 
NEXT i IF (x+3)<=45 THEN LOCATE x+3,y:PRINT"."- 


DATA 4,1,8,1,2,2,5,3,7,3,9,3,2,94,9,5,7,5,9,5 IF (x+3)<=45 AND (y-3)>=6 THEN LOCATE x+3,y-S:PRINT"."” 


REM ] IF (y+3)<=21 THEN LOCATE x,y+3:PRINT"." 0 


hundidos=0:intentos=0 IF (x-3)>=21 AND (y+3)<=21 THEN LOCATE x-3,y+3:PRINT"." 
WHILE hundidos<10 RETURN 
GOSUB 58:REM pedir coordenadas 


IF mapa$(1,k)="*" THEN hundidos=hundidos+t1:GOSUB 75: REM presentar en pantalla 
GOSUB 93|ELSE GOSUB 88 
REM ==============2=292222222222222===2======== 
intentos=intentos+ti 


LOCATE x,y:PRINT"." 
WEND 


RETURN 
GOSUB 101:RUN 


LOCATE 23,1 
REM == , e 


PRINT STRING$(40,” ”) 
REM pedir coordenadas 


LOCATE 23,1 
REM == 


PRINT ” “TE QUEDAN POR HUNDIR=.10hbundidosi..BARQULTOS (y 
LOCATE 1,24: PRINT STRING$(80," ”) 


RETURN 
LOCATE 1,24:PRINT CHR$(29);” DAME LAS COCRDENADAS. " j 
DIME LA X"¡CHR$(29)5 REM ============================ 
INPUT $: 1F X$="" THEN X$=" ” REM presentar salida [] 
LOCATE 23,25:PRINT CHR$(24);" DIME LA Y”;CHR$(239);5 REM ====a=s=omMxrriiconoso===r========= 
INPUT Y$: IF Y$="" THEN Ys$=" ” MODE 1:PRINT CHR$(24) 
X$=UPPERS (X$) : Y6=LIPPERS (VS) LOCATÉ 5,5:PRINT” ENHORABUENA” S 


IF (ASC(x$)<65 OR ASC(x$)>73) OR (ASC(Y$)<49 OR ASC(Y$) PRINT:PRINT:PRINT:PRINT:PRINT"HAS HUNDIDO LA FLOTA EN " 
>54) THEN LOCATE 34,24:PRINT"” "¿LOCATE 34 3 INTENTOS; " INTENTOS" 


¿| 25: PRINT" ns GOTO 62 PRINT CHR$(24) 

68 LOCATE 1,24:PRINT STRING$(40," ") FOR I=1 TO 2000: NEXT 
.69 LOCATE 1,25:PRINT STRING$(40,” ") » RETURN 
20 K=VAL (Y$) 
71 REM obtener posicion 

72 1=ASC (x$) -64 


73 x=posx(1,k):y=posy(1,k) 


F2 EDITORIAL 


COMETA 


PRESENTA 


E] 


3 


Jal 


ana Canción 
de Pabidad 


17 


EN 


EDITORIAL 


COMETA:.. Zamora s/n, nave 11. Telf.:673 51 66 San Fernando de Henares (MADRID) 


yy 


Con este programa pretendemos a 
la vez de entretener al aficionado, 
hacer pensar y familiarizarle con el 
mundo del ordenador. 


Al final del programa planteamos 
una serie de incógnitas. En este 
primer número muy elementales, y 
que serán resueltas en el próximo. 


«MANDE SUS SOLUCIONES A 
NUESTRA EDITORIAL Y SI SON 
CORRECTAS PREMIAREMOS SU 
ESFUERZO CON UNA 
SUSCRIPCIÓN Y LA 
PARTICIPACION EN NUESTROS 
SORTEOS.» 


El juego es muy sencillo. 


El programa comienza indicándole 
las oportunidades de las cuales 
dispone para acertar un número 
generado por el ordenador. Este 
número consta de cuatro dígitos y 
además no se pueden repetir. 


Al apretar la tecla S, le aparecerá 
una pantalla dividida en 
subpantallas. 


— La subpantalla izquierda es 
donde, en cada momento 
puedes observar el estado del 
juego. 

— La subpantalla superior derecha 
es por donde el ordenador se 
comunica con usted. 


— La subpantalla inferior es donde 
aparecerá el número que teclee 
y que posteriormente le 
aparecerá en la del estado del 
juego, indicando el número de 
aciertos. 

— La subpantalla que pone 
Número a adivinar sirve para 
visualizar el número generado 
por el ordenador una vez que 
la partida haya finalizado. 


— Tiene 10 oportunidades para 


adivinar un número. 


— El número consta de 4 dígitos 


sin que éstos se puedan 
repetir, por ejemplo: 1234. 
Correcto. 

1223. Incorrecto. 


— En la subpantalla izquierda 


aparecerá dicho número 
indicando el número de Muertos 
y Heridos que hayas acertado. 


— Un Muerto es un dígito que ha 


sido acertado y además está 
en la posición correcta. 

Un Herido es un dígito que ha 
sido acertado pero que no está 
en la posición correcta. 


EJEMPLO: Si el núero a adivinar 
es el 1489 y se teclea 
el número 1234 usted 
tendrá: 1 Muerto, el 
número 1 y 1 Herido, 
el número 4. 
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5 CLS 


10 LOCATE 18,1:PRINT "HOLA !":PRINT:PRINT: 
PRINT 


15 PRINT SPC (4) "VAMOS A JUGAR A MUERTOS Y 
HERIDOS" :PRINT:PRINT 


20 PRINT "- SOLO TIENES 10 OPORTUNIDADES" 
25 PRINT ” PARA ADIVINAR EL NUMERO": PRINT 
30 PRINT "- EL NUMERO CONSTA DE 4 CIFRAS” 
35 PRINT ” SIN REPETIR":PRINT 


40 PRINT "- SI QUIERES JUGAR PULSA LA 
TECLA <S>” 


45 PRINT ” EN EL CASO CONTRARIO PULSA LA 
<N>"¿PRINT:PRINT:PRINT 


50 PRINT SPC (14) "< SUERTE >” 


55 a$=INKEYS: a$=UPPERS (a$) : 1F a$<>"S5” AND 
a$x>"N” THEN 55 


60 CLS 
63 IF a$="N" THEN 440 


70 PAPER O:CLS:PAPERH1,0:CLSH1:CLSHZ2: PAPER 
$H3,0:CLSH3: PAPER$4,0:CLSH49 


380 DIM num%(4):DIM aux%(49):DIM valor%(4) 
85 DIM diaitos*(10) 

90 muertos%=0:heridos%=0:posibilidad%=0 
95 FOR i%=1 TO 10 

100 digitos%(i%)=0 

105 NEXT 

110 GOSUP 500 

115 VINDOW 1,17,1,25 

120 PAPER 2:CLS:PEN 3 

125 PRINT "ESTADO DEL JUEGO” 

130 PRINT STRINGS(16,"X"):PRINT 

135 WINDOW $1,21,90,1,14 

140 PAPER B1,2:CLSH1:PENB1L,S 

145 LOCATE $2,22,17 

150 PRINT $2, "NUMERO TECLEADO” 


155 WINDOW +$3,23,35,19,19 


200 


PAPERH3, 2: CLSH3: PENHS, 3 


LOCATER2,21,22 


PRINT 42, "NUMERO A ADIVINAR”" 


WINDOW $4,23,35,24,24 


PAPERH4,2:CLSHIIPEN $H9,3 

PRINT $9,SPC (5)”?" 

WHILE posibilidad% <10 AND muertos%<>43 
muertos%=0:heridos%+=0:CLSH1 


PRINT H1,"TECLEA UN NUMERO”"DE CUATRO 
CIFRAS”"SIN QUE ESTAS""SE REFITAN" 


as=INFEYS: IF a$<3"0"” AND a$<>"1" AND 
a$:>"2" AND a$i>"3" AND a$<>"a 
a$<>"5" AND as:>"6" AND a$30">" AND 
a$:)”8" 


a$<>”"9" THEN 2010 


aux% (1%) )1=2»num%(i%) :ivalor%(i%)=VAL (a$) 


PRINTR3, valor%(i%)1: 
3 NEXT 
FOR i%=1 TO 3 
FOR j¡%=i%+1 TO 4 
IF valor%(i%)=valor%(3%) THEN CLSHI: 
CLSHS: GOTO 190 
NEXT j¡% 
NEXT 1%» 
CLSH1 


PRINT H$H1,"DESEAS MODIFICAR””EL NUMERO 
TECLEADO""S/N ?2” 


a$=INKEYS$: IF a$<>"s” AND as$<>"n” 
THEN 255 


) IF a$="s" THEN CLSH1:CLSH3: GOTO 190 


pecsibilidad%=posibilidad%+i 

FOR i%=1 TO 4 

IF aux%(i%)<>valor%(i%) THEN 290 
muertos%=muertos%+1 

aux%(i%)=10 


NEXT 


FOR i%=1 TO 49. 


300 FOR j¡%=1 TO 4 4 291 CLERHI1:PRINT $1, "ENHORABUENA” "LO HAS 


305 IF aux%(i%)<>valor%(j%) THEN 320 CONSEGUIDO”: GOSUB 600 


310 heridost=heridos%+1 372 INK 3,1 


395 CLS RHI:PRINT $1, "QUIERES JUGAR" "OTRA 
PARTIDA S/N 2” 


315 aux%(i%)=10 


320 MEXT 3% : 
dl 400 a$=IMKEYS: IF a$<>"s" AND a$<>"n" 


325 NEXT -i% THEN 3400 
: 903 IF a$="n” THEN 915 


330 CLS $3 
410 RUN 70 


331 PRINT ” ”; 
9135 WINDOW 1,40,1,25 


335 FOR i%=1 TO 4 
420 WINDOW $1,1,40,1,25 


336 IF valor%(i%)=0 THEN PRINT "0”; : S 
423 WINDOW $2,1,40,1,25 


337 IF valor%(i%)=1 THEN PRINT "1"; 
430 WINDOW $4,1,40,1,25 


338 IF valocr%(i%)=2 THEN PRINT "2"; : 
433 PAPER O:PEN 1:CLS 


339 IF valor%(i%)=3 THEN PRINT "3"; 
440 END 


340 IF valor%(i%)=4 THEN PRINT "4”; 
E 500 FOR i%=1 TO 4 


391 IF valor%(i%)=5 THEN PRINT "5”; 
: 505 RANDOMIZE TIME. 


342 IF valor%(i%)=6 THEN PRINT "6"; > 
5310 azar%=INT (RNDX10+1) 


243 1F valor%(i%)=? THEN PRINT ">"; 
: 515 IF digitos%íazar%)=1 THEN 505 


399 IF valor%(i%)=8 THEN PRINT "28"; . 
520 digitos%(azar%)=1 


395 IF valor%(i%)=92 THEN PRINT "9"; ? 
5253 IF azar%=10 THEN azar%=0 


346 NEXT 
E 530 num%*(i1%)=azar% 
347 PRINT " : ”; 
535 NEXT 
350 PRINT muertos%"M"heridos%”H"”:PRINT 
540 RETURN 
355 IF muertosth=2 THEN CLSH1:PRINT H1,"TE . 
FALTA POCO PARA” "ADIVINAR EL NUMERO": 600 FOR i%=1 TO 10000: NEXT 
OSUB 600 
605 RETURN 


360 IF mueros%=3 THEN CLSH1:PRINT H1, "SOLO 
TE GQUEDA”"UN DIGITO PARA” "ACERTAR El 
NUMERO”: GOSUB 600 

365 IF. muertos% <2 AND posibilidad% >? 
THEN CLSH1:PRINT H1, "ESMERATE UN POCO 
":GOSUB 600 

370 WEND 

373 IF muertos%*=4 THEN 386 


380 CLSH1:PRINT $1,"LO SIENTO PERO NO” "HAS 
ADIVINADO””EL NUMERO” ¿GUSUB 600 


381 FOR 'i%=1 TO 4:PRINT $4,num%(1%)3: NEXT 
385 GOTO 395 
386 FOR i%=1 TO 4: PRINT $9, nunm%(i1%); NEXT 


- 390 INK 2,3,26 
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AVANCE DE LA PROGRAMACION 
DEL PROXIMO NUMERO 


ENTRE OTROS PROGRAMAS TENDREMOS: 
e El sabiondo 1 | 
e El quinielista millonario | 
e Juegue consu Tabla Periódica j 

e Sin olvidar nuestro curso de introducción al Basic || 
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y 


Desafíe su sentido de la orientación e 
intente salir del laberinto de las mil 
puertas, para lo cual tiene un máximo 
de 60 intentos y cuatro visualizacio- 
nes del plano. 


Con los cursores puede escoger la 
puerta que desee, e incluso moverse 
hacia atrás. 


Al meterse por una puerta, la posición 
adoptada posteriormente es: de es- 
paldas respecto a la puerta que se ha 
atravesado. Pero esto lo veremos 
más claro con un ejemplo: 


1 al oprimir la tecla del 
A | cursor pasaremos 
a la posición 2 


De forma totalmente distinta funciona 
la opción de retroceder, que corres- 
ponde a la tecla del cursor []] en 
este caso nuestra posición variará de 
la manera siguiente: 


1 al oprimir la tecla del 
A cursor []] pasaremos 
a la posición 2 


2 
> 


Su efecto es análogo a dar un paso 
hacia atrás. 

El cambio de orientación dentro de 
una habitación se consigue presio- 
nando <ENTER> (la tecla grande). 
Cada vez que lo haga girarán 90 gra- 
dos hacia la derecha. Al igual que an- 
tes, lo veremos con un ejemplo gráfi- 
00. 
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Presionando 
<ENTER> 
pasan a 2 


Presionando 
<ENTER> 
pasan a 3 


Presionando 
<ENTER> 
pasan a 4 


Presionando 
<ENTER> 
pasan a 1 


ATENCION: Cada vez que empiece a 


jugar comenzará en una habitación 


distinta, y con una orientación distin- 
ta. 


Una vez que sabe todo esto, ya pue- 
de intentar desvelar el «misterio de 
las puertas». Adelante... si se atreve. 


Pulsar PLAY, a continuación 
<CTRL><ENTER> y después cual- 
quier tecla. ¡SUERTE! 


1 REM DAVID GARCIA 

2 REM HERA PRINCIPIO Hed de de HA RRA 

3 REM 

10 MODE O 

15 LOCATE 4x2 PRINT" DENTRO" e 


17 LOCATE S+11:FRINT" DEL” 
19 LOCATE 6,14: PRINT"LABERINTO" 


20 FOR d=1 TO 4000: NEXT: GOSUB 10000 ¿REM 


INSTRUCCIONES 


30 MODE Z 
40 tope=40 


100 
120 
130 
140 
150 
150 
170 
150 
170 
00 
210 
z20 
230 
240 
250 
260 
270 


£70 
430 
O 
700 
710 
720 
730 
740 
730 


WINDOW 41,52, 30,125 ¿REM (¿44% VENTANA FARA FLANCI: 
REM 
REM INICIALIZACION DE LA MATRIZ DE DIRECCIONES 
REM 
DIM late(25>20) 
FOR f=1 TO 25 
FOR c=1 TO 20 z e 
READ labe(f>c) 
NEXT - 
NEXT f 
REM - 
REM HARO: GENERACION ALEATORIA DEL COMIENZO +44 
REM HRAAAR INICIALIZAMOS CONTADORES dl 
ctn=0 $ 
total=4 
conta=0 
RANDOMIZE TIME: aux=INT (RND*25)+1:1F aux>235 THEN 270 
aleat=INT(RND*4)+1:1F aleat>4 THEN 230 
IF aleat =1 THEN dib=1 
IF aleat =4 THEN dib=16 ] E) 
IF aleat =3 THEN dib=11 
IF aleat=2 THEN dib=4 
IF aux?25 THEN GOTO £20 
direccion=1labelaux>dib) 
ON direccion GOSUE 1230, 1500, 1570, 1650, 1720, 1790, 1860, 1740 


x=aux e 


REM 

REM OPCIONES 
REM ñ 

IF INKEY(2)=0 THEN flag=1:nu=1 


IF INKEY(2)=0 THEN flag=1:nu=z 

IF INKEY(0)=0 THEN flag=1:nu=3 a 
IF. INKEY(1)=0 THEN flag=1:nmu=4 

IF INKEY(7)=0 THEN GUSUB 2050 

REM $e LA LINEA SIGUIENTE ES FARA CAMBIAR UE 

ORIENTACIÓN 4% 

IF INKEY(13)=0 THEN dib=(dib+5)MOD ZO0:direccion=lakbe 

(db) :6070 350 


REM E E 
IF (labe(x>dibt+tn0 =0)0R (fl ag=0) THEN GOTO 400 
flag=0 


ctn=ctn+1 3 1F ctn=tope+l THEN FRINT"LO SIENTO», TENDRAS QUE 
DEDICARTE A OTRA,COSA":PRINT"PORQUE SE TE HAN» ACABADO LAS 
OPORTUNIDADES" :G0TO 470 

aux=late (x> dibtnu) a 
FRINT "INTENTO NUMERO "sctniFOR n=1 TO 1000: NEXT 

IF aux=x+5 THEN GOSUB 1970 

IF aux=x+1 THEN GOSUE 1770 

IF aux=x-1 THEN GUSUB 2010 

IF aux=x-5 THEN GOSUE 2030 


GOTO 330 

ENT 0 
REM 

REM $$$$$$% MENSAJE DE SALIDA $6$$$$ 

cLs 

LOCATE 22 5:PRINT"LO HAS CONSEGUIDO! !" 

PRINT:FRINT "HAS UTILIZADO"3ctns" INTENTOS":<PRINT 

IF ctní10 THEN FRINT"HAS ESTADO GENIAL !!" a 


IF ctno=10 AND ctníló THEN PRINT"ESTA BASTANTE EIEN.” 

IF ctno=20 AND ctn<3O THEN PRINT"FUEDE MEJORARSE BASTANTE" 

IF ctno=30 AND ctn<i45 THEN FRINT"ESTA MUY MAL; HAY 

QUE AFRENDER" .. 

IF ctn>=45 THEN FPRINT"NO LO PUEDES HACER PEOR AUNGUE QUIERAS" 
IF conta+4 THEN FRINT"NOGO HAY QUE MIRAR TANTO EL PLANO) ESO O 
SOLO LO HACEN LGS TONTOS": GOTO (430 

IF CONTA=0 THEN FRINT"MUY EIEN+NO HAS UTILIZADO El FLANO.” 

ELSE PRINT"HAS MIRADO EL FLANCO": contas" VECES" 


FRINT . 

PRINT:PRINT"OTRA VEZ <S5/N>" e 
año” 

ab=1NKEVS 

IF (as="s")0R (ab THEN GOTO 230 

IF tasi="4")0R(aó="N") THEN GOTO 740 


dada 0 0 rr 0 0 2 2 02 0 9 


20+7,1,5>0:27+120+6>7+1+0,0> 1,007 


0 bo 0 a 


AS 


ES +0 e 
Ssbs12+16+0+ 1121607 6+ 3314 0+ br 127 + 076712216 
1,7,13,0,11,3,13+0,1127+7+0,11,7+13+511>7+13,0 
2,0,0,0,12,4,0+0+ 120260: 120,0: 8,120,000 


ba 
a 
E 
o 
, 
A 
a 
E 
bo 
cn 
a 
e 
a 
o 
o 
a 


1860 GOSUB 1120 
1870 GOSUB 1310 
1880 GOSUB 1330 
1870 GUSUB 1450 
1700 RETURN 3 
1710 REM 


7910 DATA 5,0,15,17+0+6>15,19:0,0+2,17,0+0,15+3,0+0,15,17 
720 DATA 2,0+0:,0>14:4>0:0,14,0,6:0,14:+0+0,5,14>0,0,0 

930 DATA Ss 11+17+21+0>1,17+21+0>11>3>21+0>11,177+0>11>17,21 
740 DATA 1,0+18:0»16:4>18:0+16,0+1+0>16+0:15%4>16:0,185+0 
7350 DATA 3,0:0,23,17+5+0>23,17+0+6+,23,17,0+0,2,17:,0,0,23 
960 DATA 5,14:20+24:0>1:20,724,0,14,3,24>,0,14,20,7,0,14,20,24 


“y e ”, ” As CUA en e LA 05 y ici 
770 DATA 3,0,0:25,17+5+0,25,17»0,6,25»19+0+0+2+190,0,25 A A LAA 
930 DATA 6,16:22+0:0+2+22+0»0»16>3»0»0»16:22+5>0,16,22,0 1930 HEN 


1740 GOSUB 1120 


3970 DATA 1 3,0>21,4>23,0» Oia ¿23 
o a 1950 PLOT 150:77:DRAW 250>77:PLOT 325,57: DRAW 373, 25:PLOT 25» 


1000 DATA 1,18.24,0,22,3,24,0,22,18,7:.0,22,18,24,5,22,18,24,0 


1010 
1020 
1030 
1040 


DATA 2,19:0:0,23,3,0:0:23,19+5,0,23,179:0+6,23,179:0,0 
DATA 4,20>0+26:0+1+0+ 26,0, 204, 26>0,20+0,1,0,20+0,26 
ENr! 
REM 


17: DRAW 75,57 
1750 RETURN 
17970 1F nu=1 THEN dib=11 ELSE dib=1 
1730 RETURN 


1050 REM asseaneorersarees FIN DATA ===== 1990 IF nu=1 THEN dib=6 ELSE dib=16 
1060 REM 2000 RETURN 
1070 REM 2010 IF nu=l1 THEN dib=14 ELSE dib=4 
1080 REM ELLE LLE LEILA subrutinas >>>) 999) 5 2020 RETURN S 
10%0 REM , > 2030 IF nu=1 THEN dib=1 ELSE dib=11 
1100 REM 44 DIBUJO CUADRO COMUN 444 2040 RETURN 
1110 REM 2050 REM 
1120 CLS 2060 REM $4 PLANO DEL LABERINTO 4% 
1130 REM 2070 REM 
1140 PLOT 0.0.1: DRAW 0350: DRAW 397,350: DRAW 397,0: DRAW 0,0 zO30 conta=conta+l e 
1150 PLOT 150,77: DRAW 100,77: DRAW 100,252: DRAN 300,252: DRAW 300» 2090 1F conta> total THEN LOCATE 60+Z0:PRINT"TU FIDES DEMASIADO 
77: DRAW 250,77 ¿"6070 2570 
1160 PLOT 0,350: DIRAW 100,352: PLOT 397,350: DRAW 300,252 2100 FOR 2=410 TO 620 STEP 42 
PLOT 0,0 0RAW 25,17 FPLOT 75,57: RAW 100,77 2110 PLOT 2:197%D0RAW 223771 
PLOT 397,0: RAW 373 PLOT 325,59 DRAW 300» 77 2120 NEXT 2 
RETLIRIN 2130 FOR Y=1797 TO 377 STEF 40 a 
REM 2140 PLOT 410, Y:DRAW 620, Y 
REM 48% DIBUJO CUADRO <1> 448 2150 NEXT Y 
REM 2160 PLOT 425,237 DIRAW 437>,237,0 
2170 PLOT 425,277: DRAW 437,279 
2180 PLOT 425.317: DRAW 437,319 
2190 FLOT 425.359: DRAW 437,357 
2200 PLOT 467.317:DRAW 477,317 E) 
2210 PLOT 467,357: DRAW 477,357 
2220 PLOT 509,239: DRAW 521,237 
1230 GOSUE 1120 : 2230 PLOT 509+.359:DRAW 521,359 
1240 PLOT 150,77: RAW 250>77 2240 PLOT 551,239: DRAW 563,239 
1250 GOSLUB 1310 2250 PLOT 551,2771DRAW 563,277 
1260 GOSUE 1330 2260 PLOT 593,197: DRAW 605.199 Oo 
1270 RETURN 2270 PLOT 551,359: DRAW 563,359 
REM 22680 PLOT 593,237: DRAW 605,239 
REM : PUERTA IZGUIERDA ; 2270 PLOT 593,359: DRAW :605, 359 
REM 2300 PLOT 452,214:DRAW 452,224 
PLOT 25.19: DRAW 2 10: DRAW 75» DIRAW 75, 59 2310 PLOT 494,214:DRAW 474,224 
PLOT 75 571 DRAW 25, 57 2320 PLOT 536,214: DIRAW 536,224 


DIRAN 250 225 


RETLIRIN 


2330 PLOT 452,254: DRAW 452,264 


a 2340 PLOT 494,254: RAW 494,264 
REM 2350 PLOT 578,254: DRAW 578,264 
REM a PUERTA DERECHA 22323 2360 PLOT 452,274: DRAW 452,304 
REM 2370 PLOT 494,294: DIRAW 474,304 
PLOT 373 LRAW 373, 250: DIRAN 325» 2: 325,59 2380 PLOT 575,274: DRAW 573,304 
PLOT 325 57% DIRAW 373,57 2390 FLOT 474,334: DRAW 474,344 0 
PLOT 325. 225: DIRAN 373,225 2400 PLOT 536,334: DRAW 536,344 
RETLIRN 2410 PLOT 578,334: DRAW 578,344 
20 REM 2420 PLOT 452,374: DIRAW 452,384 
1430 REM ¿aii PUERTA CENTRO 22>2>>>>>>> 2430 PLOT 536,374:DRAW 536,334 
1440 REM 2440 PLOT 573,374: DIRAW 573,334 
1450 PLOT 150.77: DRAW_ 150: 200: DIRAW 250,200: DRAW 250,77 2450 IF (x>0)AND(x<6) THEN fila=2 
1440 RETLIRN 2460 IF (x>5)AND(x<11) THEN fila=4 O 
1470 REM 2470 1F (x>10)AND(x:<16) THEN fila=7 
1480 REM HH DIBUJO CUADRO <2> HH 2480 IF (x>15)AND(x<21) THEN fila=7 
1470 REM . 2470 1F (x>20)AND(x<26) THEN fila=12 
1500 GUSUB 1120 2500 LOCATE 55+((x-1)M0D 5)+*5>,fila 
1510 GOSUB 1380 2510 IF dib=1 THEN car$=CHR$ (241) 
1520 PLOT 150,77:3DRAW 250+77:FPLOT 25,19: DRAW 75,57 2520 IF dib=4 THEN car$=CHR$ (242) (5) 
1530 RETURN 2530 IF dib=11 THEN car$=CHR$ (240) 
1540 REM 2540 IF dib=16 THEN car$=CHR$ (243) 
1550 REM $8 DIBUJO CUADRO <3> $$$ 2550 PRINT cars$ 
1560 REM 2570 FOR T=1 TO 4000:NEXT.T 
1570 GOUSUB 1120 2572 LOCATE 1>1 > 
1580 GOSUB 1380 2573 CLS$1 $ 
1590 GOSUB 1450 25790 RETURN 
1400 PLOT 25,19: DRAW 75,59 7770 REM : 
1410 RETURN 7773 REM 44H INSTRUCCIONES $44 
1620 REM 29773 REM 
1630 REM 44H DIBUJO CUADRO <4> 448 10000 — MODE 1 
1440 REM 11010" “LOLAIE ISTRIA "ADELANTE. E CARA JO 
1450 GOSUB 1120 10020  LOCATE 10+5:PRINT"ATRAS....... "5CHR$(241) O 
1460 GOSUB 1450 10030 LOCATE 10,7:PRINT"IZQUIERDA... ":3CHR$(242) 
1670 PLOT 25,19: DIRAW 75». 5%PLOT 373,25: DRAW 325» sy 10040  LOCATE 10,9:PRINT"DERECHA..... "3CHR$(243) 
1680 RETURN 10050  LOCATE 10>+11:3PRINT"PARA VER EL FLANO FULSAR <COFY 3% 
16470 REM maxi-mo de 4 veces: 
1700 REM $$% DIBUJO CUADRO <5> ht 10060  LOCATE 10,14:FPRINT"CADA VEZ QUE SE PULSE <ENTER> LA ORIEN— 
1710 REM TACION DENTRO [7] 
1720 GOSUB 1120 DE LA HABITACION CAMBIA 90 grados HACIA LA DERECHA" 
1730 GOSUB 1310 10070 LOCATE S+25:PRINT"Para comenzar pulsar “¿enters" 
1740 GUSUB 1450 10050 IF INKEY(18)=0 THEN RETURN ELSE GOTO 10080 
1750 PLOT 325,59: DRAW. 373,25 
1760 RETURN 
1770 REM : S 
1780 REM HH DIBUJO CUADRO <6> Hi 
1790 GUSUB 1120 z 
1800 GOUSUB 1310 
1810 FLOT 150.77: DRAW 250» 077: PLOT 325,57: DRAW 373,25 
1820 RETURN 
1830 REM 
1340 REM 4% -— DIBUJO CUADRO <7> HH O 
1850 REM 


ERE AAA A A A NARA 


RNA TAS AAA 
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Deseo suscribirme a la revista AMSTRADMANIA por un año consecutivo (11 números) al 
precio de 4.312 pesetas, más 400 de envío. El primer número que deseo recibir es el ............... 


El precio de la suscripción lo abonaré: 


Contra reembolso del primer envío U 
Por talón bancario a nombre de EDITORIAL COMETA, S.A. U 


Recibo de EDITORIAL COMETA, $. A., en concepto de inscripción anual hasta nueva orden, 
a la revista AMSTRADMANIA. 


Potosí, 1 - 28016 MADRID - Teléfono 276 13 60 
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